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DECUS Program Library Write-up FOCAL-17 
ABSTRACT 


It is the aim of this paper to help the user to code specific routines in FOCAL so that his 
dialect of FOCAL can be applied to his application (without being forced to understand in 
detail all the workings of FOCAL). In this way, perhaps, each and every user can make 
his particular dialect of FOCAL 'perfect'. 


I. INTRODUCTION 


_ Many users have found FOCAL ** to be the answer to their real-time and computational 
problems. The language is extremely powerful and flexible with unique text editing and 
debugging features. Although FOCAL is slow in execution compared to machine language 
coding, for most real-time problems or one-time calculations, lack of speed is not a serious 
‘handicap. Most users will agree that a program can be written, debugged, and executed in 
"FOCAL" before the equivalent could even be coded (and/or punched) in any other language. 
Additions or changes are easily made. 


It will be assumed that the reader has a basic knowledge of PDP-8 processor instructions, PAL 
mnemonics (see Digital's Small Computer Handbook or Introduction to Programming), as well 


as a familiarity with the Floating Point Package (DEC-08-YQYA-D). In addition, he should 


be familiar with the "FOCAL"** language. 


As many users have discovered, the internal workings of FOCAL are an incredibly complex 
piece of programming. With the need to interface the computer to specialized equipment for 
individual applications, there is the corresponding need for appropriate software. If FOCAL 
could communicate with this equipment, one would have an extremely powerful and flexible 
computation and control package. This paper is an attempt to explain how user developed 
software can be interfaced to the basic FOCAL package, without requiring the user to spend 
valuable time trying to understand all of its detailed workings. 


Section I] will deal with a general discussion of how FOCAL works, in a descriptive fashion. 
Section III will be concerned with the philosophy of the language. The last few sections will 
be more technically oriented toward helping the user actually code his additions. Finally, 
several examples and ready coded routines, which may be used to simplify the user's problems, 
are included. | 


*Supported in part by the U. S. Atomic Energy Commission. 
**T hroughout this paper a "FOCAL" program written in the "FOCAL" language will be 


enclosed in quotes. The machine language coding of the FOCAL interpreter will be referenced 
by the word FOCAL without quotes. 


Il. ASSEMBLERS, COMPILERS, AND INTERPRETERS 


In general, there are three routes that the programmer can follow for machine execution. Programs 


that perform translations are assemblers, compilers, or interpreters; each operate from conceptually 
different vantage points. 


In «a compiler level language, such as FORTRAN, ALGOL, and BASIC, coding is written in a syntax 
close to the way a human thinks. A compiler interprets this and generates an object code which is 
close to machine language. This, in turn, is translated into actual machine language instructions. 
Finally these machine language instructions must be read into core before execution. If any 
corrections are to be made to the program (debugging, additions, or corrections), one must recompile 
ihe <ource coding, read the new object coding in, and finally execute it. 


An assembly level language is inherently closer to machine language than a compiler level language. 
The user's coding is indeed remote from the way he thinks about formulating a problem (he is even 
forced to think in binary or octal, the machine's way of formulationg problems). About all an 
assembler lets the programmer do is use mnemonics (words) and symbols instead of binary numbers. 


For example, in the PAL language, the instruction TAD | TEMP is assembled as follows from the 
definitions: | 


TAD = 1 P28 /in the assembler's internal symbol table 
| = 24290, /internal symbol table 
TEMP= 2128. /user defined in coding 


The assembler masks out the first 5 bits from the last mnemonic 
if there are more than one (in this case TEMP); it then ORS the 
result with the other mnemonics: 


19@@ 
& 2498 
& 9190 
1522 This is the machine equivalent. 


The PAL assembler is a little more sophisticated than this, of course, and performs functions a 

little more complicated, but generally an assembler is incredibly stupid for what it can do. Note 
the similarity between PAL mnemonics and machine language. Throughout the following sections 
various mnemonics will be defined so that the PAL assembler can generate instructions compatible 


with FOCAL (e.g. GETC = 45@6 causes the assembler to add this to its symbol table). 


ln on interpretive level language, no machine language coding is generated for execution. An 
interpreter is essentially a subroutine caller. It contains a subroutine for every conceivable 
operation it thinks the user wishes to perform. If it cannot understand what the user wants, it 
oriviis an error message and waits for the user to make himself clear. Every character that the 
user inputs is stored in core. Upon execution the interpreter "interprets" the program character 
by character ond calls the subroutine indicated. 


FOCAL is an interpretive level language. In particular, it is a recursive interpreter (see 
Section Ill). That is, unlike FORTRAN, one may call a function from within itself. 
Nevertheless, it is basically a subroutine caller, even though these subroutines may be 
incredibly interlocked. It has a subroutine to evaluate arithmetic expressions (EVAL), 
subroutines to make it recursive (PUSHJ, PUSHA, etc.), branching routines (SORTJ), 

a subroutine to find a certain line (GETLN), one to get a character (GETC), etc. Once 
the user understands what all these routines do, he can add his own coding in a highly 


efficient and powerful manner. Descriptions of these subroutines will be given in later 
sections. 


Hi. THE PHILISOPHY OF FOCAL 


A. Text Editing 


Since FOCAL is an interpretive language, it must have facilities for manipulation of user 
written text. In order to facilitate these manipulations, there are a number of text formatting 
and editing features, such as WRITE, MODIFY, TYPE, and the "trace" ("?") function. One 
of the main features of the FOCAL interpreter is the simplicity of concept and power of operation 
af the format controlling statements. The user finds a convenient, easily understood way of 
controlling the format of his output, regardless of his level of programming experience and 
sphistication. 


Since much of FOCAL execution is involved in various text decoding routines, FOCAL is slow 

in execution of programs (compared to assembly or compiler language coding). The text handling 
routines may be called from the user written assembly language subroutines, and thus are listed 
with a short description of their function, in Table 1. 


FOCAL is concerned with interpreting what the user's text means by specific combinations of 
characters, so it must have a flexible means of decoding these characters according to type. 
The most efficient way this can be done is to use a subroutine (SORTC) that compares the 
present character witha list. It is necessary to have the address of the list as an argument for 
this subroutine. For example, suppose that it is desired to find a text terminator. To do this, 
a list is made of all legal terminators (;, carriage return, space comma, etc.), and the value 
of the present character (stored in location CHAR) is compared to the list: if a match is found, 
~ an index is set to the list element number, and a normal return is taken. If a match is not 
found, then another return is taken. 


B. The Multiple Branch Routine 


FOCAL is in many ways similar to JOSS2. All of the JOSS-like languages incorporate a 
"command" in addition to the arithmetic statements available in other languages (ALGOL, 
FORTRAN). One of the advantages of the command is that, using only the first symbol of a 

new statement, the interpreter (or compiler, inthe case of BASIC) can decode the action 
required, and thus need not "understand" the whole line before proceeding. This is an advantage 
in a small machine such as the PDP-8, where the paucity of core demands highly efficient coding. 


# joss - An Introduction to a Helpful Assistant, Rand Memos 5058-PR July 1966. 


A Unique feature of FOCAL is the ability to operate with single-letter abbreviations of the 
command. As an example, consider the subroutine that actually selects the command branches 
(and is used for other operations within FOCAL, as well). This routine (SORTJ) is called with 
an argument pointing to the list of characters to be compared and another argument containing - 
a pointer to a list of associated addresses. FORTRAN programmers might recognize the result 
as a sort of character-driven computed GOTO. The calling sequence is: 


SORT J /Sort and Branch Routine 

TABLE1-1 /pointer to character list 
TABLE2-TABLE /difference in addresses of the tables 
XXX | /return if not in table 


Absolute addresses are specified in the arguments; hence, tables may be stored between pages. 


Since FOCAL refers to lists for its decoding operations, it is often referred to as a table driven 
interpreter. A table driven interpreter is especially suited to addition of new coding, since only one 
or two addresses need to be added to a table (list) for a new branch. 


€. Recursion 


One of the features of FOCAL which makes it so powerful is that of recursion. Recursion is the 
ability of a subroutine to call itself, e.g. FSQT (1 - FSQT(X)). In most compiler level languages 
this operation is carried out by repeating the machine language (FSQT) coding so that one version 
of the subroutine can call the other. In these cases the subroutine never really calls itself, rather 
it calls a separate identical piece of coding. An interpretive level language cannot afford multiple 
identical subroutines for every possiblity, since it would take too much core. 


Consider how a 'normal', nonrecursive subroutine works. Schematically we may divide the sub- 
routine into a segment in which the logical operations are coded and a segment where temporary 
values in the calculation are stored. We can consider the subroutine return to be stored in this 
temporary storage area also. VIZ, 


Intermediate 
Variable 
Storage 


CODING 


SQT, 


(eval. argument) 


| (take SQT of arg.) 


If this hypothetical. subroutine were to call another subroutine (as is normally done in assembly 
language), there would be no difficulties provided that the intermediate storage of the two 
subroutines are separate. 


If the subroutine was to call itself from within its own coding, the original intermediate values of 
the variables and the return pointer would be overwritten (as the program executes the coding the 
second time). If there was a way to use a different intermediate storage area, the original values 
would not be lost. 


The Push-Down List (PDL) concept involves an intermediate storage area which is " pushed-down" 
(making a new intermediate storage area available) whenever a subroutine is called and "popped- 
up" whenever a return occurs. VIZ, 


CODING 


SQT may be in 
argumen 


(eval. argument) 


(take SQT of arg.) 


(storage 
areas 


POL 


one ae oe em one 6 


To continue the example, the steps in the evaluation of FSQT 1-FGST(X)) would proceed as 
follows: 


1. The main program calls the FSQT subroutine. Storage area 1 is now pushed- 
down into the push=down list making area 2 available. 


2. The argument "1-" is evaluated up to the next FSQT(X). 
In order to evaluate this, the FSQT subroutine is called again * 


3. On second entry to the subroutine, storage area 2 (containing the main 
program return and the intermediate value of the argument) is pushed-down. 


4, X is evaluated and then the square root is taken. 


5. The subroutine returns (to the middle of itself) with the answer FSQT(X). 
When this return is effected, storage area 2 is popped-back-up (with the 
old intermediate values). 


6. The answer FSQT(X) is subtracted from | to form the argument 1-FSQT(X). 
The square root of this is taken and the function returns to the main program. 


Obviously, by using the PDL concept, subroutines may call themselves to any level (as long as 
there is PDL space available). 


For most efficient core utilization, FOCAL uses the same PDL intermediate storage for all sub- 
routines. Todo this, one value (PDP-8 word) is pushed-down at atime. Values are 'popped' 
in the reverse order that they are ‘pushed’. 


An additional feature of a PDL is that it can be used for temporary storage of variables in non- 
recursive routines. One may consider the PDL as an extension of page zero since it can be accessed 
from any page. Section V will describe PDL handlers available in FOCAL. 


D. Conclusion 


The concepts outlined above will introduce the experienced programmer to the internal working 
of FOCAL. In the sections that follow, a more technical exposition of these routines will be given. 


MNEMONIC 


GETC . 
SORTC 
TESTN 
TESTC 
TESTLPR 
READC 
PRINTC 
PACKC 
PRINTLN 
FINDLN 


SPNOR 


TABLE 1 


FOCAL TEXT HANDLERS 


DESCRIPTION 


Get the next character from the text 

Sort the present character against the table 

Sort the present character into one of three types 
Sort the present character into one of four other types 
Test CHAR from left parenthesis 

Read a character from the Teletype 

Print CHAR on Teletype 

Pack a character into buffer (store it) 

Print the current line number 

Find a given line 


Ignore spaces 


The Appendices contain examples elucidating the principles outlined in this report. — 


IV. TECHNICAL DETAILS - GENERAL 


A. Arithmetic Manipulations 


Arithmetic is done using the three word floating point format. Input and output of numbers 
are handled via the Flcating Point Package (FPP) I/O controller (with modifications to run 
with the interrupt enabled). For details, see FPP documentation (DEC-08-YQYA-D). 


B. Storage -- (Core Layout) — 


The FOCAL interpreter occupies locations 1 - 3220 (see Figure 1). The FPP occupies 
approximately 4600 - 7577, depending on how many functions are kept. The initial dialogue 
sets BOTTOM, the end of storage space, depending on the number of functions kept. The 
remaining storage is used for text, variable storage, and push-down lists. 


3220 = 4577 with all functions 
3220 = 5177 FEXP, FLOG, FATN deleted 
3220 = 5232 FSIN, FCOS and above deleted 


The text is built up from location 3220 occupying approximately two characters per location. 
Variables are built upward from the top of the text. They occupy 5 locations per variable 
and are created as they are found in execution. Whenever the indirect program is changed, 
(modified, appended, or collapsed), a new starting point for variables is indicated; hence, 
old variables are erased. The push-down list (explained more fully later) is built from the 
FPP down toward the variable storage area. Error messages occur with termination of the 
program whenever these lists overlap. 


Instructions are stored in the command/input buffer when in the command mode; the buffer 
has sufficient locations for one line of characters. 


C. Holes 
The following locations are free for the user: 


PAGE ZERO 16 (Auto Index Register) 
162 - 175 (Free in 4K FOCAL) 
171 - 175 (Free in 8K FOCAL) 
FPP 5571 - 5577 
5754 - 5777 
6171 - 6177 
7154 - 7177 
7346 - 7377 
7554 - 7577 
6317 - 6377 is used by the high-speed 
: reader control -- if you do 
not have one, this is available 


PAGE ZERO 


FOCAL 
INTERPRETER 


FLOATING 
| POINT 
PACKAGE 


ILOADERS-MONITORS 


T777 


YEXT STORAGE FORMAT VARIABLES FORMAT 


Pn 


Figure | 


D. Moving Bottom 

For additional user coding room, BOTTOM may be changed at the sacrifice of text storage 
To move BOTTOM, set the contents of location 27 (C(27)) to the last location available for 
text (PDL) storage; e.g. in order to free locations 4420-4577 for user additions to the inter- 
preter, change C(27) to 4417. 

V. TECHNICAL DATA - FOCAL SUBROUTINES 


With the use of subroutines available in the FOCAL interpreter and a listing, a must, it is 
relatively simple to write powerful user coded additions. 


Unless otherwise stated, these subroutines must be entered with the AC =@; they return with the 


AC =@. 
A. Page Zero Reference Locations 


. CHAR - The contents of this location (142) contains the current character (in ASCII code) 
from the text buffer. 


SORTCN - This register contains references used by sorting routines (see below). 

FLAC - This is the first word of the floating accumulator (contains the exponent). The floating 
accumulator occupies locations 44 - 46. 
FLAC is defined as 44. 


B. Text Handling Routines — 


GETC = 4506 


Gets next character from the text; exits with next character is CHAR. 


SORTC= 4511 


Calling sequence: SORTC /call 
LIST-1 /address of LIST-1 
XXX /return if in LIST 
XXX /return if not in LIST 
Description: If the accumulator is nonzero, its contents are used; 


otherwise the contents of CHAR are used to sort against 
the LIST. If it is in the LIST, return to call + 2; if not, 
return to call + 3. SORTCN is set to how far down in the 
list the match occurred. | 


Example: If we are testing for one of the following: 
LIST =, 
254 /, 
273 /; 


215 /carriage return 
7777 /l\ist is terminated by a negative 
9 number 


Assuming it is an error for CHAR not to be in the list, 
the following coding applies: 


SORTC /sort against LIST 

LIST-1 /address of LIST 

SKP 

ERROR /do an error exit as not in LIST 


If a match were found, SORTCN would have the values: 


Contents of CHAR SORTCN Value 


g 
; l 
carriage return 2 
NOTE: Lists are terminated by negative numbers. 


PRINTC = 4512 | | 
Print the accumulator; if the AC = @ print the contents of CHAR. 


READC = 4513 
Read and echo a character from the keyboard. Put it into CHAR. 


SPNOR = 4521 


Ignore spaces in text; exit with the first character that is not a space in CHAR. 


ERROR = 4526 

Used to exit upon error detection; transfers control to the command mode and terminates 
execution; prints error message. (In the FOCAL listing there are ERROR2, ERROR3, and 
ERROR4. AIl of these are identical.) 


TESTN 
This subroutine is actually a series of SORTC's with various returns: 
CALL: TESTN /call 
return| /return if a period 
return2 /return if not a period or a number 
refurn3 /return if a number; SORTCN is set to the 


binary equivalent. 
This routine tests only CHAR. AC must be @. 


TESTC (4525) 


This subroutine is actually a series of SORTC's with various returns: 
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CALL: TESTC /call 


return] /terminator; SORTCN set according to TERMS 
return2 /number; SORTCN set as in TESTN 

return3 /function; (CHAR=F) 

return4 /alphabetic character 


SORT J (4510) 


This subroutine is used as a multiple sort and branch routine. CHAR (or the AC if nonzero) 
is compared toa list. If it is in the list, an address is looked up and an effective JMP 
ADDRESS is executed. If a match is not in the list, then return is to call+3. 


CALL: SORTJ 
| LIST1-1 /ADDRESS of character list 
LIST2-LIST1 /difference in the addresses of lists 
RETURN /return here if not in LIST] 


An example of this is the FOCAL branch to a library command: 


POPA /get command CHAR 
SORTJ /oranch 
COMLIST-1 
COMGO-COMLIST 
ERROR2 /invalid command 
where 
COMLIST =. COMGO = 
323 /S (ASCII) SET /ADDRESS OF SET CODING 
306 /F FOR /ADDRESS OF FOR 
311 /l IF 
304 /D DO 
307 /G GO 
303 /C COMMENTS 
301 /A ASK | 
324 /T TYPE 
314 /L LIBRARY 


7777 /\ist is terminated by a negative number 


NOTE: Lists are terminated by a negative number. 


C. Utility 


RTL6= 4520 
Rotate the AC six places to the left. 


D. Pushdown List Controllers 


For those unfamiliar with more powerful processors than the PDP-8, the ideas of recursion 
and pushdown lists are explained in Section Il. These subroutines appear to simulate hardware 
commands on more sophisticated machines like the PDP-10 and even use the same mnemonics ! 


PUSHA = 4503 


Puts the contents of the AC on the PDL; clears the accumulator. 


POPA = 1413 
Get the top entry on the PDL and put it in the AC. (Note: auto-index register 13 is the pointer 
to the pushdown list; thus 'POPA' is actually TAD | 13.) 


PUSHF = 4504 : 
This is essentially three PUSHA's and is used for storage of floating point data. 
Call: PUSHF 
ADRESS /address of first location of three word floating point number. 
POPF= 4505 
The inverse of the PUSHF routine. 
Call: POPF 
ADDRESS /address of where to put data. 
PUSHJ = 4501 
This is the recursive subroutine call. The subroutine return is put on the PDL and a JMP to the 


subroutine address is executed. 


Call: PUSHJ 
SUBROUTINE | /address of SUBROUTINE 
XXX | /address of this location is 
/stored on the PDL 
POPJ = 5502 


Recursive subroutine return; the top element of the PDL is used as the effective address of the 
return. 
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E. Other Subroutines 


INTEGER 


Enter via a JMS | INTEGER. This routine makes an integer out of the FLAC. The low order 


part is in FLAC + 2, the high order part is in FLAC +1. Also, returns with the low order part 
in the accumulator. | 


EFUN3I 


This routine is the return from a function routine. It checks for a right bracket in CHAR (')') 
and normalizes the floating accumulator. Enter via a JMP | EFUN3I. 


EVAL 


This subroutine evaluates arithmetic expressions; because it is recursive, it must be called via: 


PUSHJ 
EVAL 
XXX /return 


The subroutine return is to call + 2 with the floating point value of the expression it evaluated 


in the FLAC. (How EVAL works is discussed in Appendix A.) 


NOTE: All temporary storage must be in the PDL before calling EVAL. This data must be 
restored after the return. (see Appendix for examples. ) 


VI. LINKS TO FOCAL 
A. Functions 


The general form of a function in "FOCAL" is FUNC(ARG1,ARG2,---). The function coding 
is entered via a SORTJ where the address in designated in the table: 


FNTABF=. /(376) in FOCAL-W 8/68 
XABS /address of FABS coding 
XSGN /FSGN 
XINT /etc. 

XDIS 
XRAN 
XDXS 
XADC 
ATN 
EXP 
LOG 
SIN 
COS 
SQT 
NEW /user defined function 


To add a user coded function put the entry point of the function coding in the appropriate 
location in the above table. FOCAL will branch to that location after the function name is 
decoded,’ and ARG] is evaluated in the floating accumulator (FLAC). To delete ~ function 
from the list, replace the current contents with 2725. 
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When the function evaluation is complete, the answer must be left in the FLAC, and a JMP | 
EFUN3I executed. The EFUN3I routine will check to see if there is a right parenthesis (")") 
in CHAR, and normalize the FLAC, before returning to the appropriate place in FOCAL. (See 
Hints and Kinks, Section XIII A, if the answer is an integer. ) | 


B. Links to FOCAL - the LIBRARY Command 


FOCAL has an unimplemented command, the LIBRARY command (SET, ASK, TYPE, etc. are 


- commands). The general form of a command is: 


X _ (any syntax allowable by coding). 


For example the SET command's allowable syntax is: 
SET (variable) = (arithmetic expression). 


To generate the link to the user's LIBRARY command, put the entry address in 1201. FOCAL 
will enter via a JMPwith CHAR containing 249g (a space). The following coding may be used 
at the end of a LIBRARY command to space over extraneous characters to a semicolon or carriage 
return, which must be in CHAR before doing an effective JMP PROC to return to FOCAL: 


SKP /entry 

GETC /fetch the next character 
SORTC /sort for a; orc.r. 
GLIST-1 

JMP PROC /FOUND IT. 

JMP .-4 /not yet 


C. Debugging 


It has always been a problem to debug FOCAL programs, as FOCAL runs with the interrupt on. 
Recently, a DECUS program XOD (DECUS #8-89) became available. This program may be used 
in field 1 to debug FOCAL in field @ with the following patches made by J. C. Alderman. 


FIX UP XOD 
Patch FOCAL 0001 5575 
(field @) 0175 2603 
6761 5002 
Patch XOD 6762 0002 
(field 1) 6763 5404 
6764 0003 
6765 6613 
6766 0004 
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Vill. APPENDIX A 


A. A Prescription 


To add a function: 


1. Put the function address in FNTABF. 


2. Do eading: 


. Use PDL for temporary storage 
If more than one argument is needed: 


PUSH 
ARG 


where ARG is a supplied subroutine (See Appendix B). ARG is 
a subroutine which moves past commas and evaluates arithmetic 
statements, leaving the result in the FLAC. 


3. Put the functional result in the FLAC. 


4. Return to FOCAL via JMP | EFUNSI. 


To add the LIBRARY command: 


1. 


Put the initial address in the contents of 1201 
(for expansion of commands see Appendix B). 


Exit from coding via an effective JMP PROC. Note: the contents of CHAR 
must be either ; or a carriage return. 


X. APPENDIX C 
A. Example of a Recursive Subroutine - EVAL 


The subroutine EVAL is an example of a recursive subroutine. The PDL is used to defer 
evaluation so that the arithmetic operations are performed according to operand priority. 


In order to take care of bracketed auantiies EVAL does the following: 
if a left bracket occurs - PUSHJ 


EVAL 
if a right bracket occurs - POPJ. 


Given that EVAL evalueates arithmetic expressions, the above operations have the effect of 
changing all bracketed quantities to evaluated numbers. Hence, all bracketed quantities 
have now "gone away" and we are left with expressions like: 


A+B*C-D/E*% F. 


Operand priority is assigned as follows: 


opperation ’ priority level 
2 1 
- 2 
- 3 
Vi 4 
4 5 


A flow diagram approximating this subroutine is given in Figure 2. 
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IX. APPENDIX B 

A. A Few Useful Routines 

1. Argument evaluator 

A common requirement, expecially in function additions, is a routine which test for and 
evaluates additional arguments. The subroutine ARG (coded below), checks if the contents 


of CHAR is a comma (,), moves past the comma, evaluates the argument, and returns to 
callt+ 3. If the contents of CHAR is anything other than a comma, return is to call +2. 


Call: PUSHJ 
ARG 
XXX /CHAR was not a comma 
XXX /return with ARG(next) in FLAC 
ARG, TAD CHAR  /get CHAR 
TAD MCOMMA 


SZA CLA /A comma? 
JMP +4 = /yes: exit via POPJ 


PUSHJ /move past comma and evaluate next arg. 
EVAL-1 

IAC /increment return 

POPJ 


2. LIBRARY expansion 


As FOCAL has only one ‘extra! command character, LIBRARY, a routine to expand the number 
of commands is useful. In this way the normal format: 


L (statement) 
which allows only one command branch, may be extended into the syntax: 
L X (statement) 


where X represents another command. A listing of this routine follows. 


3. Function-command extention 

The user may desire to perform a branch within a function, e.g. ARG2 in the function call 
FNEW (ARG1,ARG2, ARG3, ---) may be used as a command letter to specify a branch to 
perform different operations. An example of a subroutine to do this follows. (see next page) 


NOTE: The return to FOCAL from each branch must be via a JMP | EFUNSI. 


With the use of the last two routines, the number of commands and/or functions may be extended 
to any level. 13 


/ 
CIEL LO 
LiPPer 


/ 
a TRL 
COMMEND PRICKSSOR 
/ 
LIFRARs SPNOF JIGNOFF SPACES 
TAD CHAGF | SCET COMMAND CHAE 
PUSHA 4STASH IT 
CFTC SCET NEXT 
©I>5TC | YMOVE TD) TEEMINATOD 
CLIST-1 
CAP 
IMP ent | 
SDNOT- JIGNOTF SPACES 
PIPS CFT CO4GMANL CHAT. 
SIETSJ CO) THREFF 
CLIST=-1 | 
COILIST-CLIST 
FRROF NOT IN LIST 
y | 
/ 
* 557 
CLIST= 
oa SWAP 
3P6 SEESTOP 
320. PUT 
7777. #£43xYCIMMANED LIST TEFEMINATOPE 
/. 
/ 
*€171 


COLIST=. 
SAP 
PESTOF 
PUT 

/ 

/ 


* 


/ 


fe ICEL COMMEND LECODE? 


/ 
FST Cs 


“4 COMMA, 


JME JT INTFCET! 
PUSHA 
TAL CHA? 
TAD MCIMMA 
£78 CLA 
ERYOR4 
CFTC 
CSPNOP 
TAL CHET 
PUSHSA 
SQFTC 
TEFMS= 1 
IMP «#3 
CETC 
JIMP e-4 
CPN 
PIOFS 
COrTdJd 
COMMAND S=] 
AT DS-COMMANTS 
oe Daa aes 
-254 


7Ery Nee 


SMEAE &FCUMENT ON INTECro 


SSEVE IT 
/CIMMA 


MOVE FAST 
JICGNOrE 
SCET 
/ST4S2H IT 


PY eCi Ss 


fILCNDS Yr SVACeS 


/CET COMMEND CHeT 


COMME 


COMMAND CHéF e 


409 TO éArkrorirlevre 


ANIL 2S LGESs 
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cay ee | Oe Sea ND 


SIMPLIFIED FLOWCHART OF SUBROUTINE EVAL 


set LASTOP=@ 


Evaluate a variable 
1 {possible link to 
functions) 


! $ 
(check for brackets) 
i (check for terminators) 


answer _in FLAC 


put THISOP 
IN LASTOP 
push-down 
variable(FLAC) 
SORTC for priority LASTOP 


POPJ 
do LASTOP 
between FLAC & 
var. on top of PI 
new LASTOP 
Figure 2 
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Two locations, LASTOP and THISOP, contain the priority assignment of the present and last 


operands respectively. The steps in the evaluation of 


would be: 
THISOP _ LASTOP 
N.A. Gg 
1 g 
1 
] 
3 1 
3 
3 
2 3 
2 
2 1 


A+ B*C-D/E* F 
ia ode 
A 
A 
A 
g 
B A 
g 
B A 
Qg 
B 
A 
g 
@ B 
A 
g 
2 B 
A 
g 
C*B 
A 
g 
C*B A 
Q 
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EXPLANATION 


evaluate A into FLAC; lastop 
starts out @. 


plus has priority | 


THISOP higher than LASTOP; 
put LASTOP and FLAC in PDL 


evaluate B into FLAC; put THISOP 
into LASTOP 
THISOP has priority 3 - * 


THISOP higher than LASTOP; 
put LASTOP and FLAC in PDL 
put THISOP into LASTOP 


evaluate C into FLAC 


- has priority 2 


do the last operation between 
FLAC and top of PDL. 


get new LASTOP from PDL 


al 


THISOP LASTOP FLAC PDL EXPLANATION 


2 C#B THISOP higher than LASTOP 


1 put LASTOP and FLAC in PDL 
A put THISOP in LASTOP 
g 
2 - D C*B- evaluate D 
1 
A 
g 
4 2 D C*B / has priority 4 
l 
A 
g 
4 D THISOP higher than LASTOP 
2 put LASTOP and FLAC in PDL 
C*B put THISOP into LASTOP 
1 
A 
4) 
5 4 E D “4 has priority 5 
2 evaluate E 
C*B 
a 
A 
4) 
5 E THISOP higher than LASTOP 
4 put LASTOP and FLAC in PDL 
D put THISOP into LASTOP 
) | 
C*B 
l 
A 
g 
w 5 F (same as evaluate F 
above) no more operations so this 


operation has priority 9 
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THISOP LASTOP FLAC PDL EXPLANATION 


p 4 ETF D THISOP lower than LASTOP 

2 do LASTOP with top of PDL 
C*B get new LASTOP from PDL 

1 
A 
g 

g 2 . D/ENF C*B THISOP lower than LASTOP 
q do LASTOP with top of PDL 
A get new LASTOP from PDL 
g 

g I C*B-D/ETF A (same as above) 
g 

g A+B*C-D/ETF (same as above) 


THISOP LASTOP @ hence we are done: do POPJ exit 
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Xl. APPENDIX D 
A. Field One Variable Array 
1. Abstract 


A new form of 8K FOCAL W. (DEC-O8AJAD-PB), is available which uses field one to store 
data arrays in three word floating-point form. This facility is added to 4K FOCAL W via the 
function call FNEW. The function may be called recursively to any level, and all of the 
features of FOCAL are retained. In addition, an ERASE or ERASE ALL command will not wipe 
out the array. Hence, variables may be stored for use in successive programs. 


2. Requirements 


Fits into unused locations in the Floating-Point Package (DEC-08-YQYA-PB) 


7154-7177 
6572-6576 
5755-5764 
7554-7577 
3. Usage 
Loading 


Load after FOCAL W. has been loaded into the machine (before or after initial dialogue). Restart 
FOCAL W. at 200g. 


Calling sequence 
To store a variable Z as array element J: 
* S X=FNEW(U,Z) 


or 


* 4.3 S X= FNEW(U,Z) 
In addition X will be set equal to Z. 
To get the data from array element K and set Z equal to this element: 
*3 Zs FNEW(K) 
i.e. If there is only one argument the instruction is interpreted asa 'GET'. If there are two 


arguments it is interpreted as a 'PUT'. In the above examples the arguments may be any 
arithmetical expression that can be evaluated. 
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C. Recursive calling 
The function FNEW may be called recursively at any level. VIZ, 
*S Z= FNEWUJ,FNEW(J +10)) 
sets Z FNEW(J+10) and stores FNEW( +10) in array element J. 
* 3.28 . Z= FDXS(J*1000) + FDIS(FNEW(J)*NORM) 
The arguments may be any arithmetical expression. The following are valid: 
*S Z= FNEW(J*M-3, FEXP(X*2)*Y) 
*S Z= FNEW(J,FNEW(J)*FEXP(FNEW(L))) 


The function FNEW protects the binary loader in upper core. The user, of course, may subdivicle 
his array into any number of smaller arrays, keeping track of his own indecies. 
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ATC 
FUTTO™ 
CHAéT 
FEUN SI 


<6 
PENT 
FENT 
FLAC 
PLLC] 
PMOL 
FEU 
 FMTARP 
CET 
CLIST 
ICN 
sD Py Ges 
INTECF 
I}TFTN 
MCOMM SL 
MCI. 
POrA 
IPS 
ErcuA 
Puck! 
PUT 
t 7600 
TEADC 
SETUP 
ae baa "4 @ 
SOETJ 
CPNIF 
STAETY 
THIEE 
Tice 
T? 


om kee. 
0027 
C1l4e 
C100 
ToTS 
0077 
“5206 
1603 
4407 
O00C 
O044 
CHGS 
3000 
VISES 
O376 
1552 
14064 
0217 
O76F]1 
0052 
0231 
OLES 
OOES 


1413 — 


S50e 
£503 
2564 
71564 
00e4 
4513 
E972 
4511 
4510 
4501 
0134 
7173 
1407 
OL57 
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/ 
/ 
/ 
PiELA -® 
/ 
SPACE ZERO CONSTANTS 


* 1A 

MCIMMAs -O254 

/ 

/ 

KPNTAPPR+ 15 
PNEU 


Ofte “Thee 


0413 7154 PUT ADDIESS IN FNTSFE 

/ 

/ 

ATS 

/FIFLL ONF FNFEFY USFIAELES 

/CALLS? FNEwCAPTEL) /CET APiAY FLEMENT G61 

/ FNEFUCAPCIS ACE) SEUT VALUF OF 4F Cl IN GIP AY FLIMESY 


- 


4407 
SO 73 
0000 


FNTEF FEP 
HERE /4OULTe GbDTPESS Ly THIEF BOP THIEF 
FEST SFP STOPPAGE 


PALE 
7177 


443¢ 


7500. 


SIE¢ 
10564 
7700 
4526 
1O464 
HSOS 
4501 
a 755 
S777 
5776 
000e 
3000 
OcoO 


7564 
7554 


OMS: sb cDNTE GE? 


SMA 


JIMP ee tS 
TAL SE 
SMA CLEA 
RED OF 


TAD FLECtHte 


PUSH 

Puss 
AC 

OF? CET 
IMP PUT 

ie Ea oa C 

3000 

0000 


/MOAE IT ON INTFCFE 
/EEGIN CHECK FOF OUREEEITING LOAD: 


LOerHwe 
FCS. 


FMUEL 


/CET 


BLL oe: 


PrOTECT LOACET 


f° TOU. 1 Pha 
Pte 


SAEGE 


p 
/FUELUATF 4 


Poke es Ce 


JECT DOTR AVAT 
/CHENCE THIS FO} 
/OF INTEGER STOPACE 


QF FITAY 


pace 


Pm & 
t fe r) 
ae as 


4EDLDEFSS 


*5755 

/FUALUATE AN APCUMENTs IF NOT 
/THEPE PFTUEN TO CALL+2 YI4 FOFG 
/1F THEFF TO C&éLL+3 


/ ‘ 
S755 1148 AEG, TAL CHAT: 
S756 1163 TAL “COMMA 
5757 7640 SZ CLA SIS IT #& COMMA? 
S760 S364 JME et JNOLAECE MISSING 
S761 £501 PUSHY | 
S762 1602 EVAL-1 
S763 7001 1 AC /INCVEMENT FETUFN 
~§764 5s0e PAPI /DO SUBPOUTINE PETUEN 
/ 
/ 
* 7554 
7554 “777 CET» J4£ SETUP /SET UP POINTER TO Lats 
7555 1416 TEL Ete /GET EXPONENT 
7556 3044 PCA FLAC | 
7557 1416 TAL I 16 /CET HICH ONDED MANTIESA 
7560 3045 LCA FLAC+1 
7561 1416 TAD I 16 /GET LOY ORLEF 
7562 3046 DCA FLAC+E | 
7563 5373 J“P FND 
7564 A777 FUT» JMS SETUP 
7565 1044 TALE FLAC 
T7566 3416 DCS I 16 /PUT AVAY EXPONENT 
7567 1045 TAD FLAC+1 : 
7570 3416 LCA 1 16 
7571 1046 TAD FLAC+E2 
TS72 3416 DCA 1 16 
7573 6201 END,» CLF /EESTOFE DATA FIFLD 
7574 5500 JMP I EFUNSI 7LO FUNCTION FETURN 
/ 
/ 
7577 6572 
*ES7E 
/SET UP POINTER TO Array IN XF-16 
/CHSNCE TO DATA FIFLI 1 
/ 
éS572 C000 SFTUPs 0 
6573 1413 POPA /GET ALLTFSS 
6574 3016 DCA 16 
6575 6211 CLF 10 
6576 5772 JMP I SETUP 
Bi 


Xii. APPENDIX E 
A. Disk Variable Storage 
t. Abstract 


This FOCAL overlay is equivalent to the FIELD ONE variable addition to FOCAL described in 
Appendix D. In this case, however, variables are stored on the Disk. 


2. Comments 


The contents of location 167 (BASE) must be set for the user's machine configuration. Disk 


variables are written on the disk from BASE upward. BASE is the disk extended address of the 
lowest used location. 


e.g. 
last 4K of one disk system C(167) = 728. 
last 8K of two disk system C(167) = 1629 
last 16K of two disk system €(167) = 148g 


The present listing is for the last 4K on a two disk system, i.e. C(167)= 172B.. 
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LEC 
PASE 
LOTTO 
Ch 
CHAT 
FrUNg3l 
ENT 
Peo 
FCEL 
PENT 
ee 
FLAC 
Pist<7 4] 
r“iuiL 


- r ATE a 


kNTASLF 
Ci Sr 
ICNOY 
[LIST 
INC TE 
INTECE 
I} ETN 
Vi COVMEA 
“EY 
WOLe 
OPA 
POP I 
PUSHA 
PUSH 
ras 

= 7Q0 
 P7E00 
PrFOL 
FRALC 
I TLE 
gat bee ae 
SOFT 
© PNOF 
STAERTY 
THEE FE 
Thi ST 
Te 

WC 
WRITE 


SoS 
0167 
0027 
C1léz4 
Q14e 
C1ca 
0077 
“5eA 
16403 
4407 
0000 
O04 4 
O€03 
3000 
T2156 
CoTe 
12064 
0°17 
07641 
TICS 
OO0sSe 
O231 
Clée 
QO065 


7554 


1412 
550e 
4503 
4501 
7574 
TiTe 
0024 
Q1éES 
513 
£520 
4511 
4510 
4521 
0134 
7173 
1407 
0157 
C163 
O166 


3] 


/TFRISIDL Cs 


/ 

CHA = 1420 
ETL6é= 4520 
PET A= “4508 
PYPA= 141% 
Pusat SC) 
POPG= S500 
FUSL= 14023 
INTECR Te Se 
FRE OTr=a25064 
EFLAC2 44 
ST pdetin 10 
SOPVCSf511 
EFUMSI= 100 
ETATTU= 134 
IFFTN=221 
VCPSes 
TLIET=1407 
FLISTI=402 
LOTTIUM=F 
FNT=77 
TEe=H1S7 
PT7TA00=C4 
TF4LC=4513 
CLIST=1404 
SPNIUF=452 1 
ICNIOFHE17 
FENT= 4207 
FMTL= 3006 
FEY T=0 
ILIS7v=741 
PNTALEF=376F 
/ 

/ 

4 

BEI °@ 


POCEL 
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/ 
/ 
FIELT C 
/ | 
/YACE ZETN CONETEANTS 
/ 
* LAE 
VL 6E T5¢4 MCIMMAs, -£54 
CIES FTISC-. “Cs 7750 
G1l6é4 77581 CAs 7781 
GIES 6402 FEAL, DMA 
OVA €4FOE wring. oerr 
VLlE7 1760 EASE, P7Oo 
/ 
/ 
vA 
“LINK TO FOCAL 
EEN YVALEREITS 
OOTR: “9EEzZ FNEU 
A 
4 
v4 
4 
*5755 ; 
fEVALUATE AN AFGUMENT$3 IF NOT 
/TREEE RETURN T9 CALLE 
Jit pasa 6 UML 
4 
29755 1142 OFEs TAL CHAF 
S756 11682 TAC MCOMMA 
StS? <“TAA0 SZA CLA 
2160. =S6é4 IMP et 
S761 4501 Pisig 
STE LEC? EVAL- 1 
“76S 7001 IAC 
Ste -SSOe POPS 
4 
/ 
*7154 
AUISK FNEU 
; / 
7154 4407 FNFLs FENT JENAELF SeOFL On) a 
TASS 2Sts FMUL THREE | 
tao COU FEXT 
PAST Gabe JMS I INTECEF SM PRE ON INTE CEL 
PLEO. 2503 PUSHA PUSH LISKA MEMe FIL. 
7164] 1045 TAL FLEACt+I1 GET AICH -O;:DET] +A; T 
7166 4S5¢€0 FETLA SEHLET FOr Be TENNESSE CLL tts 
TAES .OSTe AND F700 MASA FOF EXTEND EFL FITS 
7164 1167 TAL BASF JOLT DISS. SASF ELITES 
71645 44563 PUSHA SAVE LEA 
7T1€6é 4501 PUSHJ ZEVALUATE 41.Ge 
Tater S755 AFG 
7170 7344 ST& CLL TAL 4°86 FOL EEAL 
7171 #5777 JMP MOTE /SEVE BETA 
7172 O700 F70Cs5 700 — 
7173 OQOGe THEFFs; 2 
717 
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TATS 
TA74 
TETo 


T1777 


TES4 
TESS 
TENE 
FGF 
TEAC 
756} 
TSEF 
TECS 
(SEL 
TEES 


' TSE6 


TEET 
POT 
ya a ae | 
TS7e2 
of aeaat ae 
T574 


OCOF 
30CC 


ococ 


73S 4 


L1é6 
ICS 
1412 
FAILS 
7346 
35623 
1374 
GSFY 
1413 
0000 
F002 
‘22 
S367 
€€Cl 
F001 
=500 
0043 


* T7554 
MUP Es 


INE TI » 


PLR» 


~~ N 


300C 
G 


TAL PIT 
LCA INS Tr 


Pp 
LF AL, 
STA 
ECS 
TAL 
LCA 
Y)r & 
CG 
TOF 
LEFEC 


CLL 
ee & 


pag 


j ae Oe 8 


LEER 


Ve at 


DON 
AN) 


SASS 


LL) 


Fle 


Le 


ALISA? 


F? 
WAL 


A PUNCTION 


PILE CE 


Xl. APPENDIX F 
A. Hints and Kinks Department 
For the experienced programmer the following may be helpful. 


1. Location EVAL-1 contains the subroutine call GETC. Hence, to move past a character 
and evaluate an argument one may: 


PUSHJ 
EVAL-1 


2. The first instruction in the POPJ subroutine is TAD | 13. Hence, for multiple returns 
from a subroutine one may POPJ with the AC nonzero, e.g. if the AC is |, return is to 
call +3 instead of call +2 (as in a normal POPJ return). VIZ, 


PUSHJ /call 
SUB 
XX /normal return 
XX JPOP return if AC= 1 when POPJ 
3 called 
XX ‘return if AC= 2 
Jetc. 


In all cases the subroutine will return with the AC =@. 


3. When using signed and unsigned integers core must be taken that minus zero is not in the 
FLAC since EFUN3I normalizes the FLAC. (FOCAL will ‘hang! in that event.) The following 
coding will apply for unsigned integers. | 


CLL RAR /make sure sign bit is @ 
DCA FLAC +1 

RAR 

DCA FLAC + 2 /put carry bit away > 
TAD P14 | 

DCA FLAC /put exponent in 

JMP | EFUN3I 


for signed integers: 


CLL RAL 

SNA 

CLL /make sure positive % 
RAR 

DCA FLAC + | 

DCA FLAC + 2 

TAD DCA FLAC 


JMP | EFUN3I 
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4. There is a BUG in FOCAL. The RMF in the interrupt routine must be moved to just 
prior to the ION. This will not give trouble until field one coding is added. 


5. For hardware initialization when FOCAL recovers (Control-C) one may use location 


2775. 


6. For machines without a high-speed reader, additional coding room of 6320-6377 may 


be gained by overwriting the HRS routine. To remove the * command deposit 2725 in 
location 1207. 7 


